#! /bin/sed

/[^0-9]/ b

:x
s/\([^,]\)\(...\)\(,\|$\)/\1,\2\3/
#s/([^,])(...)(,|$)/\1,\2\3/
tx
